home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 013a / mexlas.zip / TXBARCOD.PRG < prev    next >
Text File  |  1991-09-01  |  844b  |  30 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXBARCOD.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. txinit(_print_port)
  12.  
  13. * The 3 of 9 Bar Code requires a leading and ending "*". These are provided
  14. * by the TX3OF9BC(), so do not add them unless you want them in addition to
  15. * them.
  16.  
  17. _string = "TEXAS ASSOCIATED SOFTWARE"
  18. txorient("L")
  19. tx3of9bc(10, 10, _string, 10)
  20. txcolprint(21, int(len(_string) / 4) + 10, .t., _string)
  21.  
  22. txorient("P")
  23. tx3of9bc(10, 10, _string, 10)
  24. txcolprint(21, int(len(_string) / 4) + 10, .t., _string)
  25.  
  26. txclear()
  27. return
  28.  
  29. *: EOF: TXBARCOD.PRG
  30.